home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MLT_TASK / MULTIP / DEMO.PAS next >
Pascal/Delphi Source File  |  1994-07-19  |  692b  |  49 lines
  1. Program Multi_Demo;
  2.  
  3. Uses
  4.   Crt,
  5.   Multi;
  6.  
  7. Procedure Task1;Far;
  8. begin
  9.   REPEAT
  10.     Writeln ('This is Task 1');
  11.     Transfer;
  12.   UNTIL FALSE;
  13. end;
  14.  
  15. Procedure Task2;Far;
  16. begin
  17.   REPEAT
  18.     Writeln ('This is Task 2');
  19.     Transfer;
  20.   UNTIL FALSE;
  21. end;
  22.  
  23. Procedure Task3;Far;
  24. begin
  25.   REPEAT
  26.     Writeln ('This is Task 3');
  27.     Transfer;
  28.   UNTIL FALSE;
  29. end;
  30.  
  31. Procedure Task4;Far;
  32. begin
  33.   REPEAT
  34.     Writeln ('This is Task 4');
  35.     Transfer;
  36.   UNTIL FALSE;
  37. end;
  38.  
  39. BEGIN
  40.   AddTask (Task1,8192);
  41.   AddTask (Task2,8192);
  42.   AddTask (Task3,8192);
  43.   AddTask (Task4,8192);
  44.   REPEAT
  45.     Writeln ('This is the Main Task');
  46.     Transfer;
  47.   UNTIL KEYPRESSED;
  48. END.
  49.